home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / startup / startup.dir / Lingo_13.ls < prev    next >
Encoding:
Text File  |  1997-11-07  |  1.7 KB  |  48 lines

  1. on mouseDown
  2.   set tButtonState to word 2 of the name of member the memberNum of sprite the clickOn of castLib the castLibNum of sprite the clickOn
  3.   if tButtonState = "downState" then
  4.     exit
  5.   else
  6.     hMakeSound("startupClick.aif", 1)
  7.     case tButtonState of
  8.       "upState":
  9.         if hValidClick01() = 1 then
  10.           hButtonScripts(tButtonState)
  11.         end if
  12.       "rolloverState":
  13.         if hValidClick02() = 1 then
  14.           hButtonScripts(tButtonState)
  15.         end if
  16.     end case
  17.   end if
  18. end
  19.  
  20. on hButtonScripts pButtonState
  21.   hChangeCursor("watch")
  22.   if pButtonState = "rolloverState" then
  23.     hUndoButtonRollover()
  24.   end if
  25.   repeat while soundBusy(1)
  26.   end repeat
  27.   puppetSound(1, 0)
  28.   hDoQuickTimeInstallation()
  29. end
  30.  
  31. on hDoQuickTimeInstallation
  32.   if (the machineType = 256) and (the platform = "Windows,16") then
  33.     alert("If you are installing QuickTime, please select 'DELETE' after all prompts to delete the old files. Use Alt-Tab to get back to the application.")
  34.     set tInstaller to the pathName & "QTFOLDER\QT16INST.EXE"
  35.   else
  36.     if (the machineType = 256) and (the platform = "Windows,32") then
  37.       alert("If you are installing QuickTime, please select 'DELETE' after all prompts to delete the old files. Close 'QuickTime For Windows' to get back to the application.")
  38.       set tInstaller to the pathName & "QTFOLDER\QT32INST.EXE"
  39.     else
  40.       alert("Installing QuickTime for the Macintosh will shut down all running applications and restart your computer. Please reopen this application after the restart.")
  41.       set tInstaller to the pathName & "QuickTime folder:QuickTime‚Ñ¢ Install Disk 1:Installer"
  42.     end if
  43.   end if
  44.   updateStage()
  45.   open(tInstaller)
  46.   updateStage()
  47. end
  48.